ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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ant Bliss-32 Me ats 
CLIUTL.SRCJSHOWMAIN.B32;1 


v04 


MODULE yoy DENT="V04-000', 


B00" 
1 
5 ADDRESSING NG RODE {EXTERNAL =G NERAL 
é CONG, RELAT ATIVE) 
BEGIN 
; TITIIIIILILLL LLL .@eeeeeee? 
1 'e 
9 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
i : ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
3 ; ie ALL RIGH S RESERVED. : 
15 5 1 ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 $ ie ONLY IN ACCORDANCE WITH THE TER RMS OF such LICENSE AND WITH THE ® 
1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICES 1 § SOFTWARE OR ANY OTHER ®* 
18 3 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERuise MADE AVAILABLE TO ANY * 
1 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9 is TRANSFERRED. * 
Py we 
‘ é ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS ° Comal TMENT BY DIGITAL EQUIPMENT * 
4 é ie CORPORA TION. : 
: 09 6 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i 0087 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
; 
09 o emesepacnhsnnenensanaditesenesbonshusenneesnesnnnnenensnennsentoentenmenente 
1 
§ § ee 
5 5 FACILITY: SHOW utility 
00 
3 $0 
40 


a a a dd ad a dd 8 = = 8 = = — 8 4 1 OOOOO 
- 
2 


' 
i 
i 
' 
i 
i 
' ABSTRACT: 
3 : This module contains the command processing and dispatch routines. 
0 1 | ENVIRONMENT 
$ 1 : VAX native. user mode. 
e? $ AUTHOR: Gerry Smith CREATION DATE: 25-Jun-1982 
45 5 MODIFIED BY: 
<3 $04? i v03-005 Agwoo02 ef. er 10-Jul-1984 
48 3 ‘ e th x’ this module is now called 
7 , og § OW DEV ic ES/SERVED 
1 34 i v03-004 AEWO001 e —&. Warne 12-Apr-1984 
¢ 26 ‘ rrr the qualifier” MSCP by snabien the comet to 
5 : the module SHOWSMSCP which shows information on mass 
: 32 } served Bona 
36 v03-003 MCNOT47 Maria del C. Nasr 04-Feb-1984 


8 
Take out reference to external routine FILE "ERROR, since 


Ne 
s 


—t > se 


5 
13- -1 19:44 AX-11 Bliss-32 V4.0-74 
1 ~3007} 382 93:38:45 tet iute sre ShoUNAiN. 035; 1 
it is not used. 
v03-002 ang ge Gerry Smith 25-Aug-1983 
Ht t the 1/0 routines into a different module, SHOWIO. 
Also added SHOW BROADCAST. 


v03-001 GASO154 Gerry Smith 7-Jul-1983 
Add SHOW AUDIT. 


age af 


REQUIRE "SRC$:SHOWDEF 


K 5 
16-Sep-1984 01:19:44  VAX=11 BLiss-32 vé.0-74 p 3 
easeen Ske Sbidests eet hess ae uMki 8 283. oge 12) 


LIBRARY ‘SYSSLIBRARY:STARLET®; } — a, eregee tons 
s : common nitions 


Macro to set up two associated tables. The first table is a List of 
descriptor addresses. These descriptors contain the option names. 
The second table is a corresponding List of addresses of option routines. 


If a new option is added to SET or SHOW, all that is required in this 
module is to add one Line of code, the option name, e.g. WORKING SET. 
Then, the name of the ise routine that is dispatched to from this 
routine will be named SHOWSWORKING SET. 


o 
2D 
oO 


BLERLANLSSSLETLAVAS IH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


option_name Coption] = ZEXACTSTRING(4, 0, option)%, 
option_address Coption] = ZNAME(ZSTRING('show$S' ,2STRING(option)))%, 
make table (name) = 
ITERAL ZNAME(ZSTRING(name,’_table_length')) = ZLENGTH = 1; 
XTERNAL ROUTINE option_addréss(ZREMAINING); 


ZNAME (ZSTRING(name, * ges ten )) : VECTORCZLENGTH - 1) 
INITIAL (option_nameTZREMAINING)), 


ZNAME (ZSTRING(name,*_routine’)) : VECTORCZLENGTH = 1) 
INITIAL (option_address (ZREMAINING));%; 


5 
SHOWMAIN 1b-se “19 1:19:44 AX-11 Bliss-32 v4.0-74 P 4 
yoe-000 1e-8eb-j98e 42:09:88} Lekrure Sat SsnoumAin.os3;1 29 13) 
=F 1 1 FORWARD ROUTINE 
c. . 1 1 show$start, ' Main routine for SHOW 
: ; ¢ ; ; handler; ' Condition handler for SHOW 
i 5 } ong ane oho NOVALUE ;@ tout fil 
3 output : ' nN outpu 2 
: 1 ¢ 1 shouSurite Line : NOVALUE, : urite a line to output file 
tf 1 showSprint_ Line : NOVALUE, ! Print an already-formatted Line 
. 9 1 cli$get_value, ! Get qualifier value 
: i 5 : cliSpresent; ! Test if qualifier present 
5111 $9 1 GLOBAL showSexit_status : S$8BLOCK(4) 
8 118 : INITIAL(1); 
: 114 10 1! 
3s 995 if 1 ! Set up a table of all options, and another table pointing to the address 
; 118 ig ! : of the routine for each option. 
: 11 ae ee 
3 119 P 0215 1 make_table (show, 
TR BBE scare ne 
: 4 é Pp 6 18 1 broadcast, 
a. § P0219 1 devices, 
: 126 P 0220 1 errors 
3 ; 5 . 3 1 : logical, 
3 ma e, 
on 5 PO § 1 malariae 
; 128 P 0224 1 network, 
; 129 P 0225 1 printer, 
oa P 0 $ 1 process, 
; 131 P 0 1 rms_default, 
22% ¢ Pp 8 8 1 system, 
2's P 9 1 terminal, 
.. % P 0230 1 users, 
: : 5 oS 1 : working_set); 
: 139 03 § 1 


H 5 
SHOWMAIN 16-Sep-19 1:1 
900-000 18-88-1382 93:5 


NE showSstart = 


9:44  VAX=11 Bliss-32 v4.0-74 Pose 
333 eet tae isnoumain.o$3.1 9 a) 


i This is the main program. It gathers all the command inputs, and then 
! dispatches to the appropriate routines. 


LOCAL 
He geet 
option : SBBLOCKCdsc$c_s_bin]; 


ENABLE handler; ! Enable the condition handler 
' 
: Open and connect to the output file. 


open_output (); 


DWONOVE WO DONO UNSW O”0 


wr 


] 
! Interrogate the CLI to determine which option one was requested, and 
: dispatch to the appropriate routine. 


Sinit_dyndesc (option); 
If NOT (status = cli$get_value(ZASCID ‘OPTION’, option)) 
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$8 THEN SIGNAL_STOP(.status); 

option(dsc$w_length] = MINU (.option[dsc$w_length], 4); 

§ ef INCR index FROM 0 TO show_table_length - 1 DO 

4 269 IF CHBEGL {ope ton} docdu_tonethi. -option(dsc$a_pointer], 
5 70 -option(dsc$w_length], show_optionLl.index]) 

$ 71 THEN 

1s GIN 

8 7 (.show_routinel.index])(); 

79 a EXITLOOP 
80 75 END; 
? 76 END; 

HY $8 RETURN .showSexit_status OR sts$m_inhib_msg; ! Exit with no message 
84 0279 ND; 


TITLE SHOWMAIN 
-IDENT \Vv04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE 2 


00 00 4E 4F 49 54 50 4F Q0000 P.AAB: .ASCII L001} Qu) <0><O> ; 
HS 443 0008 P.AAA: .LONG 17694726 : 
0000000* 0000C -ADDRESS P.AAB : 


4F 43 43 41 00000 
49 44 ; 41 00 
41 &F $¢ ; 

49 : 45 4 5 

a 52 45 0001 
49 47 GF 4C Bo i8 
54 47 41 4D 018 
4F 4D 45 40 ons 

57 54 45 4 $8 
ry 49 : 4 
45 4F 0028 

SF 23 4D 00 

54 53 59 00 

4D 28 $3 4 000 
52 45 5 23 Ope 
4B 52 4F 003¢ 
000000006 000000006 000000006 000000006 000000006 00000006 00040 
000000006 000000006 000000006 000000006 000000006 000000006 00058 
000000006 000006 000000006 000000006 00070 
00000001 00000 
001C 00000 

5 08 C2 0000 

6 006A F DE 0000 
000000006 00 0 fe OOA 
6E 02060090 F OD Bis 
4 AE D4 18 
5E OD i 
00000000" EF 9F 10 


p=98e 12:09:98 LCL TUTL SRE SsHOUMAIN. 83; 


«PSECT SOWNS,NOEXE,2 


SHOW OPTI: 
\ACCO\ 


eee 
>>> 


*eeee 
>>> >>> Yr rrr PPP 

PAAPAARAADPPAALAABALS 
AMA QAAAIMOIAIMIAIMOOIOAIAIOIY+ 
te ee ee te ee ee be be Bs hs tae Be bn ne 
dee be ban bee Be Fs Bs One Donne be be Bs ee 
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z 
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~ 

cay 
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SHOW “ROUTINE: 


ADDRESS SHOWSAC COUNTING SHOWSAUDIT, 
ROADCAST, SHOWSDEVICES. 
5 NOUSERRORS. SHOWSLOGICAL, SHOWSMAGTA PE. - 
OWSMEMORY SHOWSNE TWORK. SHOWSPRINTER, 
SHOWSPROCESS, SHOWSRMS DEFA 


DEFAULT, 
SHOWSSYSTEM SHOWSTERATNAL SHOWSUSERS, 


SHOWSWORKING_SET 
-PSECT $GLOBAL$,NOEXE,2 
SHOWSEXIT_STATUS:: 
.CONG 1 
OPEN OUTPUT. SHOWSWRITE_LINE 
SHOWSPRI 


$GET VALUE CLISPRESENT 
sHOUSACTOUN TIN 


SHOWSMEMORY, SH OusN 
SHOWSHERORY SHOUSPROCESS 
SHOWSRMS_DEFAUL 

TRN SHOWSSYSTEM, SHOWSTERMINAL 
SHOUSUSERS. SHOWSWORKING_ SET 
.PSECT S$CODES,NOWRT,2 


SHOWSSTART: 
-W ; vy R2,R3,R4 


Heh OPTION 


op 
P.AAA 


Be Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se 


& 
- SHOWFAIN 18-56 -1 19:46 AX-11 Bliss-32 V4.0-74 P 7 ‘ 
vive engeen1oke $2:0.88 — LeeTetLOSkesshouMAIg 645.1 wr as 
000000006 F 023 CALLS #2, CLISGET_VALUE ; 
. 6 OARS ORR at ‘ass! | 
000000006 OCF CALLS le LIBSSTOP ; 
| 1036 18 MOVZWL OPTION, RO ; 0265 
4 CMP e 3 ‘ 
1008¢ BLEQU : 
50 p 00 MOVL #4, RO : 
6£ 0 D0 23: MOV RO, OPTION : 
4 D4 OC 4 CLRL —sCNDEX : 0269 
00000000°EF44 DF 00046 38: PUSHAL SHOW OPTIONCINDEX] : 0270 
9E OR BE 04 AE : 0 cmpcs OPTION, @OPTION+4, a(SP)+ : 
50 00000000°EF44 D MOVL § SHOW_ROUTINECINDEX], RO : 0273. ‘ 
6 f CALLS #0, TRO) ; 
54 F iH 10062 4$: ROBLEO 215, INDEX. 3$ bots | 
£8 00000000" EF 10000000 &F 5 S$: BISL pebebense, SHOWSEXIT_STATUS, RO : 0278 
00 6$: -WORD Save nothing > 0235. 
E D4 0007 CLRL = SP) : 
bp 0007 PUSHL SP F ( 
7E 04 AC D 00079 MOVG 4 (AP), (SP) : 
00000000v_ EF 03 FB 90070 CALLS #3, HANDLER : 
04 00084 RET : ( 


; Routine Size: 133 bytes, Routine Base: SCODE$ + 0000 


ies Se ee ea & ee | [ 


| 
_ SHOWRAIN 16-5e -1 9: AX-11 Bliss-32 V4.0-74 P 8 [ 
06 r3epr 188 93:08:38 | Hekate sae Ssnowmain 03351 ee \ 
: 1 ROUTINE handler (sigargs, mechargs) = 
: BEGIN 
: loos 
. ' 
; i This routine is a condition handler established by the main 
i : routine. It saves the most severe condition for the exit status. 
4 i nee 
MAP 
; sigargs : REF LOCK, 
3 mechargs : REF LOCK; 
3 signame = sigargs(chf$l_sig_name] : SBBLOCK; ! Name of signal 
; IF .showSexit_status EQ. 1 ! If no errors yet, use 
3 THEN showSexift_status = .signame; ! this one 
; If NOT sign ' If an error signal 
3 AND . anel stsSv severity] ' and severity is worse 
3 GTRU Roce showSexit_status, sts$v_severity] ! than current saved severity 
; THEN showSexit _Status = .signame; ! then save it for exit 
; Fg ss$_resignal; ! Resignal to get message 
0004 00000 HANDLER:.WORD Save R2 ; 0280 
5 00000000" ff 7 00002 MOV SHOWSEXIT_ STATUS, R2 ; 
50 04 C1 00009 ADDL #4, SIGARGS, RO : 0294 
Of 62 D1 O000E CMPL  SHOWSEXIT_STATUS, #1 : 0297. 
03 12 00011 BNEQ 1 3 
62 60 00 00013 MOVL (RQ) aac STATUS 3 0688 | 
OF 60 €8 00016 1$ BLBS ; 03500 
51 62 03 00 EF 00019 EXTZV s as" SuOUSERIT STATUS, R1 ; 0302 | 
51 60 03 00 €D fh} CMPZV. #0, #3. (RO), 3 
03 18 On8 BLEQU 2 3 
74 60 00 00025 MOVL cep SHOWSEXIT_STATUS 3 9303 
5 0918 8F 3¢ 00028 28 MOVZWL #2328, RO > 0305 
020 RET : 0306 


; Routine Size: 46 bytes, Routine Base: S$CODES + 0085 


a OOOO 


File 


1Soseoctgee 18246 


PSECT SUMMARY 
Bytes Attributes 
4 WOVEC, WRT, RD ,NOEXE,NOSHR, 
128 NOVEC, WRT, ROD ;NOEXE -NOSHR, 
16 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
179 NOVEC,NOWRT, RD, EXE .NOSHR, 
Library Statistics 
eooeeee= Symbols -<------- 
Total Loaded Percent 
9776 23 0 


-$255S0UA28 : (SYSLIBISTARLET.L32;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMJZE)/LIS=LIS$:SHOWMAIN/OBJ=OBJ$:SHOWMAIN MSRC$:SHOWMAIN/UPDATE =(ENHS$: SHOWMAIN) 
179 code + 148 data bytes 
Elapsed Time: 00:24. 


: 2808 
ROwenee/CPe-Tias 24866 

Y Used: 69 pages 
Como ation Complete 


COMMAND QUALIFIERS 


AX-11 Bliss-32 v4. 
CLIUTL.SRCIJSHOWMAI 


-EXTRN LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL. CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
581 00:01.0 


Pa 
a (6) 


aa 


AH-BT13A-SE 
VAX/VMS V4.0 


0057 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


